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This summary presents both Basic FORTRAN and FORTRAN IV 
in a 90/25, 30, 30B, and 40 environment. The functions that 
pertain only to FORTRAN IV are shaded. 
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Evaluation of FORTRAN Operations 


Piet (eee eee "ee 
= + Evaluation of functions 1 (highest) 


Arithmetic Exponentiation 
Multiplication 
Division 
Addition 
Subtraction 


Relational GT: Greater than (>) 5 
GE. Greater than or equal to (>) § 
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Relational 
(cont) 


Logical 


Less than (<<) 
Less than or equal to (<) 
Equal to (=) 


Not equal to (#) 


Logical NOT 
Logical AND 
Logical inclusive OR 
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Classification of Data Types in FORTRAN 











| Bytes Allocated _| tes Allocated ate 
Type Standard Optional Definition 


A umber with no fractional part: —2.147.483,648 < integer =. 2,147,483.647. —32768 <:. integer+2 
< 32767. 


A number with a fractional portion. Maximum value is + 7.237005*10". Minimum value is 
0.5397605*10 ’®. Accuracy is approximately 7 decimal digits for REAL*4 and 17 decimal digits for 
REAL*8 


precision Same as REAL*8. 


Any symbols that can be represented as a Hollerith constant or as a character string enclosed in 
apostrophes 











© No variable type Is associated with literal or hexadecimal data. 
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Syntax Conventions 





Brackets, [ | ,enclose words and phrases used or omitted as required. 






Braces, ‘ \ ,indicate a choice of two or more variant forms. 





Ellipsis, ..., indicates where repetition may occur at programmer's option. 






Underscore, —~, indicates FORTRAN IV default. 
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Detarnaliing thie Mode of an Expression 
Integer Integer Real Real | Com i 
(2) (a (4) (8) oO 

Integer Integer Integer Real Real A : sex 

Integer Integer Integer Real Real : C mpl 

Real Real Real Real Real | Com 










Second 
Operand: 
Type 
(Length) 
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Complex : 


@ 


ie | Complex | Complex 


(16) (16) 





| Complex 


(16), 


Complex “Complex 
© (io 


Complex | Complex | 


(16) (18) 











(ju02) Wolssaidx] ue Jo apoW ay) SulUIUUa}aq 


@ “A8Y BKER 


NvulYOd 
€/S0 DWAINN AdYddS 


“df 








Organizational Statements 
PROGRAM program-name © 
BLOCK DATA |subprog-name] 


®@ 
INTEGER FUNCTION function-name [*length] @¢variable-name-arg) --, © 
REAL (} aayaanent | ) 
DOUBLE PRECISION proc-name-arg 
COMPLEX 
LOGICAL 


function-name (dummy-arg-name-1,... [.dummy-arg-name-n] ...) = 
NOTES: 


@) 1—6 character alphanumeric string, beginning with alphabetic character 


arith-expression 





There need not be any arguments if the ENTRY is to a SUBROUTINE. An ENTRY into an external function subprogram must specify at least 
one argument. 


© 
® Length ts not allowed with DOUBLE PRECISION type. 
® 


Variable-names used as arguments may be enclosed in slashes to indicate call by name. 
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SUBROUTINE subroutine-name variable-name-1© }) ... variable-name-n © 
array-name- 1 array-name-n 
proc-name- 1 proc-name-n 
*@ *@ 

END 


DATA ( variable-name | 
array-name 
array-elem-name 
DO-implied list \ 


variable-name 
array-name 
array-elem-name 
DO-implied list 


variable-name ... | / {integer-constant*] constant [, [integer-constant*} constant] .../ 
array-name 

array-elem-name 

DO-implied list 


/ {integer-constant*] constant [, [integer-constant*] constant] .../f... 


(jU0d) sjuawayeys jeuoljeziuesIQ 


@ ABY BHEB 


NVYLYOs 
€/SO OVAINN AYYddS 


“df 








Organizational Statements (cont) 








stmt-label FORMAT ([/...] field-descriptor-1 \/ t ... field-descriptor-n [/...]) 
,@ 


NOTES: 
oO 
@ 
@ 


Variable-names may be enclosed in slashes to specify call-by-name. 


Represents dummy label arguments that correspond to CALL statement label arguments 


Commas are not required when they follow fields described by blank, Hollerith, and literal descriptors. 
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Specification Statements 





COMMON pone variable-name { variable-name 
array-name ier ere | array-name [(array-dimensions)] ... 


aL seed tal Dieses a ee 
array-name [(array-dimensions)] array-name [(array-dimensions)] ] ] 


DIMENSION array-name (array-dimensions) [,array-name (array-dimensions)] ... 


EQUIVALENCE (variable,variable[,variable]...) [,(variable,variable[,variable] ...)] ... ‘O) 


] 
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Explicit Type Statements 


ae [*group-length}®@ variable-name (*length © [/initial-values/]] ,( variable-name 

EAL array-name [(array-dimensions)] arra 
y-name [(array-dimensions)| 

DOUBLE PRECISION |sreyan function-name 





etna i 


NOTES: 


©) An ABNORMAL statemert with no function-name indicates that all functions are to be considered normal. 
3) The variables may have no subscripts, a single subscript, or multiple subscripts. Variables may be variable-names, array-element-names, or 
array-names. 


© Length is not allowed for DOUBLE PRECISION. 








(ju09) syuawazeys suoijeaijtoads 


2 iambic | ested on te | Dee a | 
N external-function-name external-function-name 
IMPLICIT ( INTEGER length] © (| siping & . ( INTEGER  [length|@ / { letter etter,... s]. © 
2 REAL letter-letter REAL | (} letter-letter t) 
33 DOUBLE PRECISION DOUBLE PRECISION 
a COMPLEX COMPLEX 
a= LOGICAL LOGICAL \ 
=| NOTES: 


‘o) Length is not allowed for DOUBLE PRECISION. 
® in the IMPLICIT statement, the character $ is treated as a letter of a symbolic name but may not be part of a range. 


Assignment Statements 


s}uaMayeys juawuaissy 


fan Beek) ie ‘a 
arithmetic-expression 
ASSIGN statement-label TO integer*4-variable 





n 
3 
Es 
oO 
s 
oO 
& 
=a 
° 
3 
a 
” 
a 
a 
@O 
3 
oO 
3 
= 
n 
pee 
ix] 
r=) 
Ss 
= 
= 
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sec} Sequential Input/Output Statements £ 
S 5 
g = 
s sal Hier = 
integer-variable 2 
2 S 
as END eae 2 
ax integer-variable on 
zs = 
z= 3 
S| Formatted READ Statements 2 
S oa 
READ integer-constant t array-name -( EOF=stmt-label-1 ) 7[,ERR=label-2} \ [1/0-list] 
integer- variable [} Meat | 
format-stmt-label 
*@ 
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Unformatted READ Statements 


ea 


NOTES: 
® 
@ 


integer-constant [ EOF=stmt-label-1 | fe Acorns Voir 2) 
caecnnciet END=stmt-label-1 


Indicates the use of list-directed 1/0. 


For unformatted data set formats, see the OS/3 FORTRAN IV programmer reference, UP-8474 (current version). 


REWIND aan 


integer-variable 
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Sequential Input/Output Statements (cont) 
Formatted WRITE Statement 


WRIT RE array-name {l/0-list] 
integer- variable 





format-statement-labei 


20) 
Unformatted WRITE Statement 


WRITE (j integer-constant t) [I/0-list} © 
integer-variable 


NOTE 


0) Indicates the use of list-directed 1/0. 
O For unformatted data set formats, see the OS/3 FORTRAN IV programmer reference, UP-8474 (current version). 
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Other Sequential Input/Output Statements 


format-statement-array-name 


PRINT ( format-statement-label 1/0-list 
+O 


format-statement-array-name 


PUNCH hermtastenet a aa 
+O 


format-statement-array-name 


READ ( format-statement-label _ 
*® 
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Direct Access Input/Output Statements 


DEFINE FILE la aa aaa) 


E 
U 
i ener | ‘aaa |e 
E 
U 


FIND /« integer-constant' evere) 
(} integer-variable’ 


integer-variable’ array-name 
*© 


“( integer-constant’ as I format-statement-label iy" 


“ integer-constant’ record-position I format-statement-label 1 [,ERR=statement-label][,END=statement-la bel] ie 


integer-variable’ array-name 
*® 
NOTE: 
© Specifies list-directed 1/0. 
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Control Statements 


CALL( user-subroutine-name (ae a) 
laine ae 


CONTINUE 

DO statement-label control-variable=initial-value, limit [,increment] 
GO TO statement-label 

GO TO (statement-label-1 [,statement-label-n] ...), integer-variable © 


GO TO integer*4-variable [,(statement-label-1 [,statement-label-n] ...)]© 


IF (arithmetic-expression) © [statement-label] [,statement-label] [,statement-label] ° 
Ss 
IF (logical-expression) executable-statement © S 
NOTES: = 
©) Maximum 127 statement labels permitted @ A complex expression is not permitted. 3 
a 


© The executable-statement may not be a DO, END, or another logical IF statement. 


a —————————eeeeOeOEOeEeEeEeEeE eee 
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Control Statements (cont) 


PAUSE (lauascamean 










RETUR 


STOP fl 


TRACE ON 

TRACE OFF 

NOTES: 

@ May be 1—5 digits 

@ May not be more than 243 characters 





@ This integer value points to a label parameter (signaled by an ampersand) in the argument list of the CALL statement. 
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Format Codes 
' [scale-factor} [repetition-factor] G field-length .digit count 


i he To read or write integer data [repetition-factor] | field-length 
To read or write real data [scale-factor] [repetition-factor] F field-length .digit count 












To read or write integer, rea 





To read or write real data with an E decimal exponent [scale-factor] [repetition-factor] E field-length .digit-count 
To read or write real data with a D decimal exponent [scale-factor] [repetition-factor] D field-length .digit-count 
To read or write hexadecimal data [repetition-factor] Z field-length 
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Format Codes (cont) 


i 
ee 
Sg 
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To insert blanks on output or to skip characters on input field-iength X 


To indicate the record position where the transfer of data is 
to begin 


T T transfer-position 
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Intrinsic Functions 


Determine the absolute value of the 
argument 


Truncation; eliminate the fractional 
portion of argument 


Truncation; eliminate the fractional 
portion of argument 


Member 
Function 
Name 


Number 
Arguments 


Member 
Argument 
Type 


Double precision 


Real*4 
Double precision 


Real*4 
Double precision 


Member 
Function 
Type 


Real*4 
Integer*4 


Double precision 


Real*4 
Double precision 


Integer*4 
Integer*4 
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Intrinsic Functions (cont) 


Generic 
Name 


Remaindering; defined as a, -[x] ay, 

where [x] is the greatest integer whose 
magnitude does not exceed the magnitude of 
ay/ay and whose sign is the same 

as a4/ag 


Select the largest value 





Member 
Function 
Name 


Number 
Arguments 


2 
(Argument 2 
must be non- 
zero.) 





JMAXO © 
AMAXO @) 
AMAX1 @) 
ne a 
MAX0 @ 
MAX1 @ 
DMAX1 @ 





Member 
Argument 
Type 


Realx4 
Integer*4 
Double precision 


Integer*4 
Realx4 
Integer*4 


Real*4 
Double precision 





Real*4 
Integer*4 
Double precision 


Real*4 
Real*4 
Integer*4 


Integer*4 
Double precision 
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Select the smallest value 


Convert argument from integer to real or 
double precision 


Convert argument from real to integer 





FLOAT @ 
DFLOAT@ 
HFLOATQ) 
DHFLOT@ 


Integer*4 
Real«4 


Integer*4 


Real4 
Double precision 


Integer*4 
Integer*4 
Integer+2 
Integer*2 


Real«4 
Realx4 


Real*4 
Real*4 


Integer*4 


Integer*4 
Double precision 


Realx4 
Double precision 
Real*4 
Double precision 


Integer *4 
Integer*2 
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Intrinsic Functions (cont) 


Generic 
Name 





Member 
Function 
Name 


Number 
Arguments 


Replace the algebraic sign of the first 
argument with the sign of the second 
argument 


Positive difference; subtract the smaller 
of the two arguments from the first 
argument 


Convert double precision to real 


Member 
Argument 
Type 


eal 
Integer*4 
Double precision 


Real*4 
Integer*4 
Double precision 


Double precision 


eal*4 
Integer*4 
Double precision 


Real+4 
Integer*4 
Double precision 


Real*4 
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oc 
g? 
co 
wm 
= 
Nh 
Convert from real to double precision Real4 Double precision 
: Complex*8 GComplex* 16. 
as 
22 ‘Reale 
= - = 
B {| Complex» Complex*8 
3 | Gomplexe1§ Complexs16 
A 
NOTES: z. 
ay 
@ This function is an external procedure supplied in the FORTRAN library. 3 
N So 
& a 
@ This function is accessible only through its member name. ag 
o 
i=) 
—] 
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Standard Library Functions 


General 
Operation 


Trigonometric 


Member 
Name 


Mathematical 
Definition 


real*4 
{in radians) 


|x |<(2'8 5) 





real*8 
{in radians) 











|x |<(259 5) 





Function Value 
Type and 
Range 


real*4 
-1<y<1 
real*8 
-1<y <1 














suonouny Aseigiy paepuels 


Z ABY BYES 


Nvulyo4 
€/S0 WAIN AYYAdS 


“df 


lé 















real#4 
{in radians) 


real*8 Lx | <{280 m) real*8 
(in radians) -1<y<1 






y=cos(x) 










TAN real*4 |x aeolian real*4 
{in radians) —M<y <M 
TAN y=tan(x) 
DTAN real*8 |x | <(250 7} real*8 
(in radians) —M<y <M 
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Standard Library Functions (cont) 


Ix} <(2'8.7) 








= 
- 
General Mathematical 
Operation Definition 
22) Trigonometric a real*4 
S (cont) coT {in radians) 
2 JCOTAN | 
Ss icotT f aaa real*8 
= pcorT | (in radians) 
oa 
a { ASIN | 
et ARSINS 
{ ASIN f y=arcsin(x) 
ARSIN {DASIN | real+8 
a 
JACOS | realx4 
re varcosf 
oS sacos | y=arecos(x) 
tarcos’ | (pacos | reals8 
{DARCOS f 








|x|<1 


|x}<1 


Ix|<1 


Function Value 
Type and 
Range 


real*4 


—M<y <M 


real*8 
—-Msy <M 


seal*4 {in radians) 
—nl2<y <n/2 


real*8 (in radians) 
—nl2<y <n/2 


real*4 (in radians) 
0<y<n 


real*8 (in radians) 
O<sy<r 
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ATAN2 





ATAN2 
DATAN2 


y=arctan(x) 


any real argument 
any real argument 


any real arguments 
except (0,0) 


any real arguments 
except (0,0) 


|x |< 175.366 


|x |<175.366 


real*4 {in radians) 
—nl2<y <a /2 


real*8 (in radians) 
—nl2Sy Sn /2 


real*4 (in radians) 
—1Sy <a 


real*8 (in radians) 
—r<y <7 


real+4 
—M<y <M 


realx8 
—M<y<M 
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Standard Library Functions (cont) 













Function Value 
Type and 
Range 


Mathematical 
Definition 


General 
Operation 














SINH 
(cont) 


Hyperbolic 
(cont) 











realx4 


COSH 








[x |<175.366 real*8 


1<y<M 


real*8 











(ju03) Suolouny Asesqi] psepueys 


Z APY BER 
“df 


NyuLuo4 
€/SO OWAINN AYYadS 


T€ 





Exponential 


any real argument 


any real argument 


x > -180.218 
x S 174.673 


x > —-180.218 
x S 174.673 


real*4 
0<y<M 


real+8 
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Standard Library Functions (cont) 


General Generic Mathematical Function Value 
Operation Name Definition 


Natural logarithm real*4 


y > -180.218 
y 174,673 


realx8 real*8 
y = -180.218 
y¥ S 174,673 
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Common logarithm 


ALOG10{ 
LoGio { 


ALOGIOl 
LOGO { 


OLOG10 


y=l09 49% 


real+4 
y > -78.268 
y <75,859 





real+8 
y > -78.268 
y <75.859 
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General 
Operation 


Square root 











CBRT yx 3 
OCBRT 








Function Value 
Type and 


Mathematical 
Definition 














E . complex* 16 








typ 1s 1esa7 m2) 


real*4 
_wi3 <y <u'3 





real*8 
—l/3 <y <mui3 




















‘O<y, <1,0987 emis 
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Standard Library Functions (cont) 
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Standard Library Functions (cont) 


General Mathematical 
Operation Definition 


NOTES: 


1. M= 1663.(1-1675) for reate4 and 16°9.(1-16—"4) for realx8 
2. z isa complex number of the form xyt X9i 








Argument 


Function Value 
Type and 
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Standard Library Subroutines 


esas ee 


SLITE CALL SLITE (e) 






Tests for overflow or underflow. 
















Tests for invalid division. 


Sets the sense indicators specified by e. 
















SLITET CALL SLITET (e,i) 





Tests for the setting of specified sense indicators. 

















SSWTCH CALL SSWTCH (e,i) Tests the binary switch specified by the integer expression (e) and returns a value in the integer 


variable name (i). 
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Standard Library Subroutines (cont) 


‘DUMP CALL DUMP (list) Dumps main storage assigned to the program; program execution terminates. 





PDUMP CALL PDUMP {tist) Dumps main storage assigned to the program; program execution continues. 


EXIT CALL EXIT Terminates the program. 
FETCH CALL FETCH (s) Loads and transfers contro! to the overlay specified by the phase name (s). 


LOAD CALL LOAD (s) Loads subprogram overlays and transfers control to the program statement under the CALL statement. 














CALL OPSYS (LOAD's) | © Loads subp rogram overlays and transters con trol to o the program statement under the CALL statement; 
: equivalent to CALL statement for LOAD subroutine. : 
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PARAM Statement Parameters — Basic FORTRAN 





aoc 
2? 
wa . 
g Parameter/Meaning 
No = 
as 
> 
z 2 
2 3 Indicates type of output to be printed by the compiler, where k is the sum of any of the following options: = 
wn 
2= 1 — Source code listing 3 
3 2 — Diagnostic listing a 
3 4 — Storage allocation map s 
8 ~ Object code listing 2 
Default value is 7. | 
eg 
w IN=mo dule-name [/filename] 
2 
| Specifies that source module is in the named file. If filename is omitted, default filename is $Y$SRC. = 
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PARAM Statement Parameters — Basic FORTRAN (cont) 











_ J (filename) 
OUT= A 0 \ 


Specifies whether an object module is to be generated, and, if so, where it is to be stored. 





(filename) 
Is the name of the file where the generated object module is to be stored. Default value is $Y$RUN. 





NO 
Generate no object module. 


SUBCHK=ALL 


Specifies that all array element addresses are to be checked. 
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3S 
re TRACE=ALL 
N 0 
ALL Es 
Specifies that labels of executable statements in the entire program unit are to be traced. = 
wn 
oF 3 
ax @o 
zs 3 
Zz = os 
s Specifies that statements with an X in column 1 are to be compiled. If not specified, statements are treated as comments. 3 
3 = 
wn 
| 
wo 
3. 
\ Oo 
at 
Qo 
x 
2 z 
= 
ry 
3 
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PARAM Statement Parameters — FORTRAN IV 


= 
2 
Parameter/Meaning 
LST=option 
wn 
2 
Es indicates type of compiler output information required, where option may be: 
= 
= Compiler identification, parameters, and diagnostics. 
Z 
” Source code listing plus N-option listings. 
Object summary and storage map with addresses of variables and arrays, plus S-option listings. 
Default option is S. 
> 
Ro 
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IN=module-name [/filename] 


Specifies name of source module being compiled. The module resides in the name of file. If filename is omitted, the name 
specified on the LIN parameter, or L!B1, is assumed. 


OUT=filename 


Specifies name of object module file. 


Default action places object modules in temporary scratch file $Y$RUN. 


LIN=filename 
Specifies name of default source module file. 


Default value is LIB1. 
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PARAM Statement Parameters — FORTRAN IV (cont) 


OPT=(S,N,X,C,T) 
Specifies compiler options: 
Statement numbers are inserted into generated code as an aid to debugging. 
No object module is generated. Program units are compiled only. 
Compile all cards with an X in column 1. 
References to array elements are checked to see if they are outside declared array limits. 


Executable labels are traced. 
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MAP=(SA,L) 


Specifies type of map produced by compiler: 
Object summary information, including module size and external subroutines called. 
Alphabetical listing of addresses assigned to variables, arrays, and statement labels. 


Listing of variables, arrays, and statement labels by storage allocations. 
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Unit References 


Unit References — Basic FORTRAN 





. Control Module FP$I0 











Unit Device Notes 

1 Card read Cards in control stream 
3 Printer 121 characters 

5 Card read Equivalent to unit 1 

6 Printer Equivalent to unit 3 
29 Reread 


The LFO filename FORTO3 is required for the printer. 


Unit References — FORTRAN IV 


. Control Module FL$IO 





Unit —_Device Notes 

1 Cardread =‘ Cards in control stream 
3 Printer Also used for diagnostics 
5 Card read Equivalent to unit 1 

6 Printer Equivalent to unit 3 

29 Reread 








Unit —— Device Notes 

1 Card read Cards in control stream 

2 Card punch 

3 Printer Also used for diagnostics 

5 Card read Equivalent to unit 1 

6 Printer Equivalent to unit 3 

11,12 Tapes 508-byte variable unblocked 

records, no labels, workfile 

29 Reread To reread cards, but not tapes 
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1/0 Configuration Procedure Calls 





Basic FORTRAN 
19 17 
FUNTAB 
16 16 
UNIT FDEVICE=REREAD, 
FUNI T=k 


FORTRAN IV DTF 





19 17 
& FUNTAB SYS=FOR 
19 16 





UNIT FDEVICE=REREAD, 


aie 
READ 


FORTRAN IV CDI 


10 16 
UNIT FDEVICE=REREAD 


sougeat { 
READ 
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1/0 Configuration Procedure Calls (cont) 


19 


Basic FORTRAN 





16 





UNIT 


10 


FDEVICE=PRINTER, 
FUNIT=k 

[, FNUMBUF=2 ] 

[, FRECSIZE=k] 


FORTRAN IV DTF 


16 





UNIT 


FDEVICE=PRINTER, 


FUNIT=(k 
PRINT 


PUNCH 


»FFILEI0= 
filename 
FORTK;if FUNIT=k 
PRNTR: if FUNIT=PRINT 





PUNCH; if FUNIT=PUNCH 


,FRECSIZE= li t] 
121 


[ 
‘ues 


[, FDI AGNOS=YES] 


, FPRINTOV= pus t | 
NOSKIP 


[ 
L FCHAR= jo) | 


»FOPTION=YES ] 
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1/0 Configuration Procedure Calls (cont) 





Basic FORTRAN 
Not Available 
FORTRAN IV DTF 


10 16 
UNIT FDEVICE=CARDIN, 


acca t 
READ 


»FFILEID= 


filename 
FORTK; if FUNIT=k 


READER;if FUNIT=READ 








[, FREREAD=YES ] 
, FBUFPOOL=YES] 


[: FNUMBUF= ss st | 

[ FWORKA= {ues if jee a 
[ 

i 


TCE if FNUMBUF=2 


FRECSIZE= lent 


FSTUB= {eit ] 


[, FOPTION=YES] 
[, FAUE=YES ] 


& eae Weneeside t | 





UP- SPERRY UNIVAC 0S/3 
8348 Rev. 2 FORTRAN 








1/0 Configuration Procedure Calls (cont) 





Basic FORTRAN 
10 16 
UNIT FDEVICE=CARDOUT, 
FUNI T=k 


[ , FNUMBUF=2 ] 
[, FCRDERR=RETRY ] 
[, FRECSIZE=k ] 


FORTRAN IV DTF 








10 16 
UNIT FDEVICE=CARDOUT, 
eat 
PUNCH 
,FFILEID= 

filename 

FORTkK; if FUNI T=k 

PUNCH; if FUNI T=PUNCH 


[, FBUFPOOL=YES] 


[ FRumpursy 2 


ee a falar a 
NO; if FNUMBUF=2 


[perro 


FORDERR=RETRY ] 
FOPTION=YES] 


[, 
[. 
[ ae treeeende t ] 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN tV Col 


This configuration is the System 80 equivalent to the two 
preceding configurations of Basic FORTRAN and FORTRAN IV. 


10 


16 





UNIT 


[FDEVICE=UNITREC, } 


FUNIT=(k 
PRINT 
PUNCH 
READ 


READER: if FUNIT=READ 
, FNUMBUF= {11 


i 


»FTYPEFLE= 
jure if FUNIT=READ 
jaro: if runir=rniant 
or PUNCH 


VFFILEID= 

filename 

FORTK; if FUNIT=k 

PRNTR; if FUNIT=PRINT 

PUNCH; if FUNIT=PUNCH 

: FCHAR= a 

[, FOPTION=YES] 

[, FAUE=YES] 

[. FREREAD=YES ] 

[ , FCRDERR=RETRY ] 

[, FRECSZE=k ] 

ee 
.FGETJCS=YES 

[, FTRANS=ASCI1] 

[. FDIAGNOS=YES ] 
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1/0 Configuration Procedure Calls (cont) 








Basic FORTRAN 
19 16 
UNIT FDEVICE=TAPE, 
FUN! T=k 


UFTYPEFLE=(!NPUT 
OUTPUTG 
WORK 


[, FNUMBUF=2] @) 
[, FBKSZ=k ] 
[, FBKNO=YES } 


[pee Pear 
Lexie 


Es ee 


[, FCKPT=YES] 
[, FOPTION=YES } 








NOTE: 


@ Backspace not permitted if this option is chosen. 
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(/0 Configuration Procedure Calls (cont) 


& FORTRAN IV OTF 


16 16 
UNIT FDEVICE=TAPE, 


FUNI T=(k 
READ 


PUNCH 


-FTYPEFLE= 
INPUT 
WORK; if FUNIT=k 
TNPUT:if FUNIT=READ 
OUTPUT); if FUNIT= 


,FFILEID= 
filename 
FORTK; if FUNIT=k 
READER: if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 


PUNCH 
, FRECFORM=(VARUNB 
VARBLK @) 
FIXUNBG) 
FIXBLK(@) 


[ rumen Ot] 


, FWORKA= 
| Ves : if FNUMBUF=1 


ite. if FNUMBUF=2 
[, FBUFPOOL=YES] 


Clee Le ] 
© 


NOTE: 


@ Backspace not permitted if this option is chosen. 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN tV DTF (cont) & 


19 16 


UNIT fFBKSZ= 
(cont) k 
|FRECSIZE|;if FRECFORM= 
FIXUNB 
[FRECSIZE+4|;if FRECFORM= 


VARUNB 
|FRECSIZE*4|; otherwise 





,FREREAD=YES ] 
,FDLAGNOS=YES ] 
,FBKNO=YES ] 


FERROPT= ad 
SKIP 





»FRECERR=YES ] 
FCOKPT=YES ] 


| 
prriaatj0y) 
| 


FCLRW=( RWD 
NORWD 
UNLOAD 


, FOPRW=NORWD } 
[. FOPTION=YES] 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN IV CDI 


10 16 
UNIT [FDEVICE=TAPE, ] 
FUNIT=(k 
READ 
PUNCH 
PRINT 


,FFILEID= 
filename 
FORTK; if FUNIT=k 
READER; if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 
PRNTR; if FUNIT=PRINT 


»FTYPEFLE= 
WORK 
INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PRINT 
“or PUNCH 


FRECFORM= VARUNB 
VARBLK 
FIXUNB 
FIXBLK 


, FNUMBUF= st] 


»FRECSIZE=k J 


,FBFSZ= 
k 
FRECSIZE; if FRECFORM= 
FIXUNB 
FRECSIZE+4; if FRECFORM= 
VARUNB 
FRECSIZE*4; if blocked 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN IV CDi (cont) 





18 16 
UNIT [,FREREAD=YES] 
(cont) [ FDIAGNOS=YES] 

[. FBKNO=YES ] 


Eider eves 


Nie 2d 


[, FOKPTREC=YES ] 








Basic FORTRAN 
19 16 
UNIT FDEVICE=SDISC, 
FUNIT=k 


»FTYPEFLE=( INPUT 
OUTPUT 
WORK 


[, FNUMBUF=2 ] 
[, FBKSZ=k ] 


ee Sie. ] 
SKIP 


[, FOPTION=YES ] 
| [, FVERIFY=YES] 
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1/0 Configuration Procedure Calls (cont) 


& FORTRAN IV DTF 


10 16 
UNIT FDEVICE=SDISC, 


FUNIT=\ k 
READ 


PUNCH 


,FSECTOR= in t| 
ES 


,FFILEID= 
filename 
FORTK; if FUNIT=k 
READER; if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 


” ETYPEFLE= 
| INPUT 
@ WORK: if FUNIT=k 





INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PUNCH 


»FRECFORM= 4 VARUNB 
VARBLK 
FIXUNB 
FIXBLK 


,FNUMBUF= {1 1+] 
Ir 


[. FBUFPOOL=YES] 


[. FWORKA= {ves if FNUMBUF=I ] 
‘NO;if FNUMBUF=2 


»FRECSIZE= \5 
508 
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1/0 Configuration Procedure Calls (cont) 








FORTRAN IV DTF (cont) & 
10 16 
UNIT , FBKSZ= 
(cont) k 
|FRECSIZE|; if FRECFORM= 
FIXUNB 
|FRECSIZE+4|;if FRECFORM= 
VARUNB 


|FRECSIZE*4|;otherwise 


, FREREAD=YES J 
, FOIAGNOS=YES ] 


[ 

[ 

ieee ] 
SKIP 


[, FRECERR=YES ] 
[, FOPTION=YES] 
{. FVERIFY=YES] 





Basic FORTRAN 





19 16 
UNIT FDEVICE=DISC, 
FUN! T=k 


[, FRECSIZE=k ] 


Te eS 
ourpurt 


[ FVERIFY=YES] 
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1/0 Configuration Procedure Calls (cont) 


@ FORTRAN IV DTF 


16 16 


UNIT FDEVICE=DISC, 
FUNI T=k 


ert 


/FFILEID= 


ae 
FORTK;:where k=FUNIT 


[ FIVPERLE(1EUT t] 
OUTPUT 


[, FBUFPOOL=YES ] 


aaa k ] 
eit 
& [, FRECERR=YES ] 


[, FREREAD=YES] 
[, FVERIFY=YES] 








FORTRAN IV CDI 


10 16 


NE 


UNIT [FDEVICE=DISK, ] 


FUNIT={ k 
READ 
PUNCH 
PRINT 


&  FFILEID= 
filename 


FORTK; if FUNIT=k 

READER; if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 
PRNTR; if FUNIT=PRINT 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN IV CDI (cont) 








16 16 
UNIT ,FTYPEFLE= 
(cont) WORK 
| INPUT; if FUNIT=READ 
| OUTPUT; if FUNIT=PUNCH 
or PRINT 
[, FBFSZ=k} 
Ce inetd 
FIXUNB 


[, FRECSIZE=k] 

[, FOPTION=YES } 

[, FVERIFY=YES] 

[, FDIAGNOS=YES ] 

(jee roccine res 
/FGETJCS=YES 


[, FREREAD=YES ] 








Basic FORTRAN 


Not Available 
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18 


UNIT 


1/0 Configuration Procedure Calls (cont) 


FORTRAN IV DTF 


16 
FDEVICE=MIDISC, 
FUNIT=(k 
READ 
PUNCH 





,FTYPEFLE= 
WORK;if FUNIT=k 
jineus if FUNIT=READ 
jie if FUNIT=PUNCH 





»FRFILEID= 
filename 
FORTK; if FUNIT=k 
READER: if FUNIT=READ 
PUNCH; if FUNIT= PUNCH 


»FRECFORM= ar ] 
VAR 


[, FBUFPOOL=YES ] 


wae ea, 
jase if FRECFORM= rie 


}258 if FRECFORM=VAR 
[, FREREAD=YES ] 
[, FRECERR=YES ] 
[. FOPTION=YES] 
[. FVERIFY=YES] 
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1/0 Configuration Procedure Calls (cont) 


FORTRAN IV CDI 








10 16 
UNIT [FDEVICE=WORKSTN, ] 
FUNIT=(k 
READ 
PUNCH 
PRINT 
»FFILEID= 
filename 


FORTK; if FUNIT=k 

READER; if FUNIT=READ 
PUNCH; if FUNIT=PUNCH 
PRNTR; if FUNIT=PRINT 


,»FSCREND=(WRAP 
SCROLL 


NEWPAGE 





»FTYPEFLE= 
WORK 
INPUT; if FUNIT=READ 
OUTPUT; if FUNIT=PUNCH 
or PRINT 


[, FIOOPT=YES ] 
[. FLINCNTL=YES] 


aman pa) 


[, FOPTION=YES } 

[. FRECSIZE=k ] 

[, FREREAD=YES ] 

Bee etel 4 
.FGETJCS=YES 


[, FDIAGNOS=YES] 
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1/0 Configuration Procedure Catls (cont) 


@ Basic FORTRAN 





19 16 
UNIT FDEVICE=SPOOLIN, 
FUNI T=k 


[, FRECSIZE=k] 


FORTRAN IV DTF 








19 16 
UNIT FDEVICE=SPOOLIN, 
pia 
READ 


@ [, FREREAD=YES ] 
(eee t] 
490 


[. FBUFPOOL=YES] 


Fae t] 


FORTRAN CDI 


Not Available 
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1/0 Configuration Procedure Calls (cont) 














eS 








Basic FORTRAN 
19 16 
UNIT FDEVICE=EQUIV, 
FUNIT=K, 
FEQUIV=j 
FORTRAN IV DTF 
10 16 
UNIT FDEVICE=EQUIV, 
FUNIT=( k 
READ 
PRINT (¢, 
PUNCH 
FEQUIV=/ k 
READ 
PRINT 
PUNCH 
FORTRAN CDI 
10 16 
UNIT FDEVICE=EQUIV, 
FUNIT=(k 
READ 
PRINT 
PUNCH 
FEQUIV=(k 
READ 
PRINT 
PUNCH 
UP- SPERRY UNIVAC 0S/3 64 


8348 Rev. 2 FORTRAN 








16 
UNIT 


1/0 Configuration Procedure Calls (cont) 


Basic FORTRAN 
Not Available 


FORTRAN IV DTF 


16 
FDEVICE=DMS, 
FUNIT=k, 
FWORKA=YES 


pe ee) 
FORTk 
, FRECFORM={ VARUNB 
VARBLK 


FIXUNB 
FIXBLK 


Wakes ere, | 


[, FREREAD=YES ]} 





FORTRAN CDi 


Not Available 
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Error Control Macro 


Basic FORTRAN 





Not Available 


FORTRAN IV DTF 


18 17 


m 
= 
= 
oC 
m 
mn 

a 
oa 
~~ 
= 
Oo 
ie 

— 

A 

a 

~ 
—— 











[, FUNDFLO=YES ] 


| 
Cora) 
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Error Control Macro (cont) 


® FORTRAN IV DTF (cont) 


16 17 


85 ["" al fl 
pe Claud fa (| 








, FERROPT= 
NONE 
READ 
READ,DATA 
READ, UNREC 
READ, DATA, UNREC 
DATA 
@ DATA, UNREC 
UNREC 
where: 
i 
Is a positive integer constant less than 32,768, 
with i2j; specifying the number of times the 
error is to be accepted before program termina- 
tion. For a fatal error, j is assumed to be 1. 
j 
Is a positive integer constant less than 32,768, 
with j<i; specifying the number of diagnostic 
messages to be produced. For a fatal error, i is 
assumed to be 1. 
ALL 
Specifies that there is no limit on the number of 
& times the error is to be accepted before program 
termination or that there is no limit on the 
number of diagnostic messages to be produced. 
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Special Characters Used in FORTRAN Source Language 


Special Characters Card Punches 


(blank) space 
plus 
minus 
virgule 
equal 


decimal point 

right parenthesis 

asterisk 

comma 

left parenthesis 
h 


semicolon 
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Example of Compile, Assemble, Link, and Execute — Basic FORTRAN 
1 10 16 





// JOB -FORTJOB1 


// FORT 
/$ 
program data 
fo 
// ASM LST=NC 
/$ 
MYIO START 
FUNTAB 
UNIT 
FUNEND 
END 





6 
t 4 


Name of job 
Call Basic FORTRAN 


Card input to compiler 


Call assembler 


Unit table information 
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Example of Compile, Assemble, Link, Execute — Basic FORTRAN (cont) 


1 10 16 





// LINK 
// OVC--- // LFD--- 
// EXEC LUNKLOD, $YS$RUN 


/$ 
data 
a 
/& 
// FIN 





Call link editor 
Optional devices required for execution 


Execute program 


Optional spoolin data file 


End of job 
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Example of Compile, Link, Execute — Disk Input — Basic FORTRAN 


// JOB FORTJOB2 Name of job 
//TEST1 FORT LST=15, IN=(MYDISK, SOURCE) Call Basic FORTRAN with 
// PARAM IN=TEST2/1IN PARAM’s — 2nd program 
// PARAM IN=TEST3/1N 3rd program 
//TEST LINK OUT=(MYDISK,LOADFILE) Link module TEST to MYDISK 
// DVC--- // LFD--- Optional device for execution 
// EXEC TEST,OUT Execute TEST 
/$ 

data Optional spoolin data 
yt 
us t End of job 
// FIN 
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Example of Compile, Assemble, Link, Execute - FORTRAN IV 


1 19 16 





// JOB FORTJOB1 


// FOR4 
/$ 

program data 
/* 
// ASM LST=NC 
/$ 
MYtO START 


FUNTAB SYS=FOR 
UNIT FDEVICE=--- 


UNIT FDEVICE=--- 
FUNEND 
ERRDEF 


é 








Name of job 
Call FORTRAN IV 


Card input to compiler 


Call assembler; no cross-reference 


Unit table information 
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j= 
// 
// 


// 
// 
/$ 


/* 
/& 
// 


LINK 

DVC --- // LFD --- 

DVC --- // LFD --- 
EXEC LNKLOD,$Y$RUN 
data 

FIN 


Call link editor 


Assign devices required 
by unit table 


Execute the program 


Optional spoolin data file 


Terminate job stream 
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Example of Compile, Link, Execute — Disk Input — FORTRAN IV 





1 10 16 
// JOB FORJOB2 
7/TEST1 FOR4 LST=M, IN=(MYDISK,SOURCE) 
// PARAM IN=TEST2 
// PARAM IN=TEST3 
//TEST LINK OQUT=(MYDISK,LOADFILE) 
// DOVE --- // LFD --- 
// EXEC TEST,OUT 
/$ 
data 
y* 
/& 
// FIN 
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Name of job 

Cail FORTRAN IV with 
PARAM’s — 2nd program 
3rd program 


Link module TEST to MYDISK 
Optional devices for execution 


Execute TEST 


Optional data 


{ End of job 


eo 
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